uses shellapi;
var
temp:string;
begin
temp:='c:\temp.txt';
if fileexists(temp) then
deletefile(temp);
winexec(pchar('command.com /c ipconfig/all>temp.txt'),sw_hide);
while not fileexists(temp) then
sleep(3000);
memo1.clear;
memo1.lines.loadfromfile(temp);