Delphi - Capturar en un Memo el texto del CMD

Hola, necesito capturar en un Memo el contenido que tenga el cmd, por ejemplo, si estoy haciendo ping a una pc remota; en mi aplicación se muestren los resultados, es decir, todo lo que se está visualizando en la ventana del cmd.

Tienes q hacerlo a mano, no hay una manera magica..

Bueno, no sé a qué te referís con CMD, así que puede que esté diciendo una tontería, pero:

¿CMD es la ventana de consola de DOS?

Si es así, podés mirar en http://www.q3.nu/trucomania/, buscá por "DOS TMEMO" (truco 320).

Saludos.

Olle, gracias por la Info, pero tengo un pequeñito problema; a la red de la que me conecto no tengo acceso a esa página, así que si puedes cópia esa página (el truco) y envíamelo a mi correo, o escríbelo aquí mismo, ¿vale? -Gracias.

Aqui está Compa el Truco que recomendó M@rcelo en Trucomanía y yo quería ayudarte y espero que te sirva de mucha ayuda y estoy para servirte.
Odel
---------------------------------------------------------------------------------------------------------------

procedure TForm1.Button1Click(Sender: TObject);

procedure RunDosInMemo(Que:String;EnMemo:TMemo);
const
CUANTOBUFFER = 2000;
var
Seguridades : TSecurityAttributes;
PaLeer,PaEscribir : THandle;
start : TStartUpInfo;
ProcessInfo : TProcessInformation;
Buffer : Pchar;
BytesRead : DWord;
CuandoSale : DWord;
begin
With Seguridades do
begin
nlength := SizeOf(TSecurityAttributes);
binherithandle := true;
lpsecuritydescriptor := nil;
end;
{Creamos el pipe...}
if Createpipe (PaLeer, PaEscribir, @Seguridades, 0) then
begin
Buffer := AllocMem(CUANTOBUFFER + 1);
FillChar(Start,Sizeof(Start),#0);
start.cb := SizeOf(start);
start.hStdOutput := PaEscribir;
start.hStdInput := PaLeer;
start.dwFlags := STARTF_USESTDHANDLES +
STARTF_USESHOWWINDOW;
start.wShowWindow := SW_HIDE;

if CreateProcess(nil,
PChar(Que),
@Seguridades,
@Seguridades,
true,
NORMAL_PRIORITY_CLASS,
nil,
nil,
start,
ProcessInfo)
then
begin
{Espera a que termine la ejecucion}
repeat
CuandoSale := WaitForSingleObject( ProcessInfo.hProcess,100);
Application.ProcessMessages;
until (CuandoSale <> WAIT_TIMEOUT);
{Leemos la Pipe}
Repeat
BytesRead := 0;
{Llenamos un troncho de la pipe, igual a nuestro buffer}
ReadFile(PaLeer,Buffer[0],CUANTOBUFFER,BytesRead,nil);
{La convertimos en una string terminada en cero}
Buffer[BytesRead]:= #0;
{Convertimos caracteres DOS a ANSI}
OemToAnsi(Buffer,Buffer);
EnMemo.Text := EnMemo.text + String(Buffer);
until (BytesRead < CUANTOBUFFER);
end;
FreeMem(Buffer);
CloseHandle(ProcessInfo.hProcess);
CloseHandle(ProcessInfo.hThread);
CloseHandle(PaLeer);
CloseHandle(PaEscribir);
end;
end;

begin
RunDosInMemo('chkdsk.exe c:\',Memo1);
end;

Muchas gracias, me ha servido de mucho, de verdad te lo agradezco.

Asi es aqui...todos nos podemos ayudar...
Saludos desde Costa Rica
Odel